home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ForCLI / infolist.lha / Infolist / rexxc / dopus / InfoList_setcomment.dopus < prev   
Encoding:
Text File  |  1995-01-05  |  1.3 KB  |  54 lines
  1. /*
  2.  $VER: InfoList_setcomment.dopus 2.92 (95.01.04 18:55:58)
  3.  
  4.  Funktion: Dies ist ein Rexx-Script für DOpus4.0+. Mit Hilfe von Infolist
  5.    werden, vom aktuellen View, alle Einträge auf ihren Dateityp getestet.
  6.    Die Ausgabe von Infolist wird dann in den Komentar, bei DOpus,
  7.    geschrieben. Dabei wird der Komentar, der Files, NICHT verändert.
  8.  
  9.  Benötigt werden:
  10.    InfoList
  11.    DOpus 4.0+ runing
  12.    temporäres Dir "T:"
  13.  
  14.  Aufruf: RX InfoList_setcomment.dopus
  15.  
  16.  Programmierer: Lutz Hanke, Dorfstr. 43, 01825 Breitenau, Germany
  17. */
  18.  
  19. OPTIONS RESULTS
  20. ADDRESS 'DOPUS.1'
  21.  
  22. busy on
  23. Status 3
  24. active = RESULT
  25. status 13 active
  26. Quellpath = RESULT
  27.  
  28.  
  29. ADDRESS 'COMMAND' 'Infolist "'Quellpath'" >t:il files lformat %n/%c'
  30. if rc = 0 then do
  31.   if open('il','t:il') then do
  32.     do while ~EOF('il')
  33.       string = readln('il')
  34.       parse var string name'/'comment
  35.       if name ~= '' then do
  36.         fileinfo '"'name'"' '\' active
  37.         parse var result a.1 '\' a.2 '\' a.3 '\' a.4 '\' a.5 '\' a.6 '\' a.7 '\' a.8 '\' a.9 '\'
  38.         removefile '"'name'" 0"'
  39.         addfile '"'name'"' a.2 a.4 a.7 '"'comment'"' a.9 0 0
  40.       end
  41.     end
  42.     call close('il')
  43.     displaydir active            /* alles neu aufbauen */
  44.   end
  45.   else 'request tempräres File konnte nicht geöffnet werden ??'
  46. end
  47. else 'request Infolist lieferte einen Fehler, Ursache ??'
  48.  
  49. busy off
  50.  
  51. exit 0
  52.  
  53.  
  54.